This comprehensive data set from The Meteorological Society contains information on all of the known meteorite landings.
The goal of this analysis is to create an insightful and interactive data visualization which draws some inference about meteorite landing locations, mass, and year of occurrence.
library(ggplot2)
library(RSocrata)
library(devtools)
library(gganimate)
library(magick)
library(dplyr)
library(ggmap)
library(gapminder)
library(animation)
library(lubridate)
data_in <- read.socrata("https://data.nasa.gov/Space-Science/Meteorite-Landings/gh4g-9sfh")
head(data_in)
names(data_in)[c(3, 4, 5, 6, 8, 9)] <- c("name_type", "class", "mass", "found", "latitude", "longitude")
names(data_in)
[1] "name" "id" "name_type" "class" "mass" "found"
[7] "year" "latitude" "longitude" "GeoLocation"
data_in$year_fix <- year(data_in$year)
data_in %>% group_by(class) %>%
summarise(n = n()) %>%
arrange(desc(n))
data_in %>% group_by(name_type) %>%
summarise(n = n()) %>%
arrange(desc(n))
data_in_clean <- data_in %>% filter(latitude >= -90 &
latitude <= 90 &
longitude >= -180 &
longitude <= 180 &
!is.na(mass),
!is.na(year))
data_in_clean$found <- if_else(data_in_clean$found == "Fell", "No", "Yes")
theme_set(theme_minimal())
options(scipen=10000)
p <- ggplot() +
borders("world", colour="gray50") +
geom_point(aes(x = longitude, y = latitude, color = found, frame = year_fix), data = data_in_clean, alpha = .5) +
labs(title = "Worldwide Meteorite Landings ",
x = "", y = "") +
theme(legend.position="bottom",
axis.text.x = element_blank(),
axis.text.y = element_blank(),
axis.ticks = element_blank())
Ignoring unknown aesthetics: frame
p
gganimate(p, "meteorite-landings.gif")
Graphs cannot be vertically aligned. Placing graphs unaligned.Graphs cannot be horizontally aligned. Placing graphs unaligned.Executing:
'convert' -loop 0 -dispose none -delay 0 plot1.png -dispose previous -delay 100
plot2.png plot3.png plot4.png plot5.png plot6.png plot7.png plot8.png plot9.png
plot10.png plot11.png plot12.png plot13.png plot14.png plot15.png plot16.png
plot17.png plot18.png plot19.png plot20.png plot21.png plot22.png plot23.png
plot24.png plot25.png plot26.png plot27.png plot28.png plot29.png plot30.png
plot31.png plot32.png plot33.png plot34.png plot35.png plot36.png plot37.png
plot38.png plot39.png plot40.png plot41.png plot42.png plot43.png plot44.png
plot45.png plot46.png plot47.png plot48.png plot49.png plot50.png plot51.png
plot52.png plot53.png plot54.png plot55.png plot56.png plot57.png plot58.png
plot59.png plot60.png plot61.png plot62.png plot63.png plot64.png plot65.png
plot66.png plot67.png plot68.png plot69.png plot70.png plot71.png plot72.png
plot73.png plot74.png plot75.png plot76.png plot77.png plot78.png plot79.png
plot80.png plot81.png plot82.png plot83.png plot84.png plot85.png plot86.png
plot87.png plot88.png plot89.png plot90.png plot91.png plot92.png plot93.png
plot94.png plot95.png plot96.png plot97.png plot98.png plot99.png plot100.png
plot101.png plot102.png plot103.png plot104.png plot105.png plot106.png
plot107.png plot108.png plot109.png plot110.png plot111.png plot112.png
plot113.png plot114.png plot115.png plot116.png plot117.png plot118.png
plot119.png plot120.png plot121.png plot122.png plot123.png plot124.png
plot125.png plot126.png plot127.png plot128.png plot129.png plot130.png
plot131.png plot132.png plot133.png plot134.png plot135.png plot136.png
plot137.png plot138.png plot139.png plot140.png plot141.png plot142.png
plot143.png plot144.png plot145.png plot146.png plot147.png plot148.png
plot149.png plot150.png plot151.png plot152.png plot153.png plot154.png
plot155.png plot156.png plot157.png plot158.png plot159.png plot160.png
plot161.png plot162.png plot163.png plot164.png plot165.png plot166.png
plot167.png plot168.png plot169.png plot170.png plot171.png plot172.png
plot173.png plot174.png plot175.png plot176.png plot177.png plot178.png
plot179.png plot180.png plot181.png plot182.png plot183.png plot184.png
plot185.png plot186.png plot187.png plot188.png plot189.png plot190.png
plot191.png plot192.png plot193.png plot194.png plot195.png plot196.png
plot197.png plot198.png plot199.png plot200.png plot201.png plot202.png
plot203.png plot204.png plot205.png plot206.png plot207.png plot208.png
plot209.png plot210.png plot211.png plot212.png plot213.png plot214.png
plot215.png plot216.png plot217.png plot218.png plot219.png plot220.png
plot221.png plot222.png plot223.png plot224.png plot225.png plot226.png
plot227.png plot228.png plot229.png plot230.png plot231.png plot232.png
plot233.png plot234.png plot235.png plot236.png plot237.png plot238.png
plot239.png plot240.png plot241.png plot242.png plot243.png plot244.png
plot245.png plot246.png plot247.png plot248.png plot249.png plot250.png
plot251.png plot252.png plot253.png plot254.png plot255.png
'meteorite-landings.gif'
Output at: meteorite-landings.gif